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! Default disk for new users 


' 

defgrp = ! Default group number 
defmem = °*" | Default member number 
defacc = ! Default account name 
defquo = 1990 ! Default disk quota 
defovr = 1 : Default overdraft quota 
grp = 
uaf = ‘Sauthorize" 
on rh | then goto ch nanue 
olddir = fSenvironment (‘DEFAULT’) 
erever iv = fSsetprv(''SYSPRV'") 

f .not. fSpriv('SYSPRV'") then goto nopriv 
set default sys$system 
write sys$output 


1 
!' Get new user names 


PAHPAAPAAPRKAARAPGHAHAPHAACAAAAHES 


$get_usernames: 
; inquire user ‘Username(s) - separate by commas" 
. } Extract one user name from List 
Sext_name: 
$ username = fSextract(0,f$locate("’,”,user) ,user) 
: user = user - username - wi 
: | Process extracted name, get full name and password 
Sfull_name: 
$ write sys$output ‘"' 
$ write sys$output ** t** Processing ‘',username,'''s account ***"’ 
$ write sys$output ‘"’ 
$ inquire full_name ‘Full name for ‘‘username'"' 
7 get term/noecho 
$ inquire password ‘Password (password is not echoed to terminal) C''username']"’ 
& $ t term/echo me 
: | password .eqs. *”’ then password = username 
$ ' List containing all accounts. Use List to acquire an unspecified 
% 1 UIC group and member number to give to the new user. 

goto get_uic 
Lfest tnt ie : 

te sys tput 


$5 
w 
=z 
e 
» 
— 
= 
~ 
Co 
>. 
~ 
e 
— 


ys tput *”’ 
to get_uic 
splay_UTC_members: 


epee 
< 
i | 
~~ 
o 
® 
w 


»@ 
mn 


$ 
$ 
$ 
$ 
% 
$ 
$0 
$ 
$ 
$ 
$R 
$ 
$ 
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$ 
$G 
$ 
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$ 
$ 
$ 
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$P 
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b 
$ 
$ 
$ 
$ 
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$ 
CH 
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ReReeeve 


oO 
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write sys utgut _ 

show oe MN cath 
te Ht ty 

goto ge Mees + 


| Get group and member numbers 


€ 


at vic: 
write sys$output ‘” 
inquire grp “UIC Group number (enter ? to 
if grp .eqs. °'? Rn goto display_UIC_Li 
derere .eqs . hen grp = defgrp 

efgrp = gr 

_member : 


Guire vic - 
te Member number (enter ? to List UIC ‘"defmem' members) [''defmem')" 
uic .egs. ‘'?"' then goto alselay. UIC_members 
ite sys$output 
(uic .eqs. '*") .and, (defmem .eqs. ‘"') then goto get_member 
vic 008. then uic = defmem 
= vic 


at ist all UIC's) C''defgrp')" 


Se en ee 


PAA “S 
¢ 2, ~ 


awe 
Cte et 


f 


mem 
! Combine group and member numbers to create complete UIC 
in the form - Cgroup,member) 


PRAM 
o 


n 
ate_uic 
f$loc ('C"" vic) .eq. f$len(uic) .and. 
f$loc("<",uic) .eq. f$len(uic) then vic = "C'' + grp +," + vic + “J” 


aD 


Get account name and privileges 


et _accpriv: 
nQuire account ‘Account name [''defacc')" 
account .eqs. ‘"' .and defacc .eqs. ‘"’ then goto get_accpriv 
f account nee then account = defacc 
defacc = account 
uire privs ‘Privileges CTMPMBX,NETMBX]" 
write sysS$output ° 
if privs .nes. ‘"’ then privs = ‘'/PRIV=("' + privs + °')" 
poorer = username 


ee ee eee he ee et 
=~ 


ee ee ae ee ww 
~~ 


Get login directory and device 


== 


t_login 
et login: tmp "Login directory ere. 


$ if tmp .nes. phen us erdir 

$ inguire tmp ‘Login device Li suserdisk' ges 

$ write sys$output 

: 1 tmp .nes. then userdisk = tmp 

. Get disk quota and overdraft quota 

Soet_ sauotas: 

$ 49°95 f$search(’" ‘userdisk'CO,0JQUOTA.SYS’') .eqs. ‘"’ then goto create_account 
$ dquota = 1 


zz 
m 


Som 


S245°°S 


BeeSe_evesess 


BOO Reverse 


@ 
m 
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nauire quota "Disk ,quote £ "detaye’ J 


eqs. uota = 
nguire. oyerdratt,. ‘Overdrs t aanke {99 ‘defovr']" 
te sys 
f overdraft “eas. 
efquo = quota 
abe ite fiteegy Sscratch:addquota.t 
pen/write e sys$scratch: addquota, tm 
pite file ‘S SET DEFAULT * ‘userdis ski mp 
ite Hite - RUN 5158p ST val i ISK A 
ite file ‘"ADD /PER quot, /OVERDRAFT=",overdraft 
ite file "S SET EF kU. eeyssé STEM” 
lose file 
ySrecratenseceusete 
ete sys$scratch: sligusts.tapse/ncles 


then overdraft = defovr 


ReeereQvessveryee 


euv-I555 
= 


Q@ocoaectet 
eee 


i Create new user directory. Create new account. 


PAPAAPRAAARHAPARHAPHAHPHKHOHONE 


Se 


reate 5055 
reate/ 9 A he nS wi i tl pal ‘userdisk'C'userdir']/LOG 
pgn/wer p ite Ruy S1sesrs addua tne. 

write f N Sersten: AUTHORIZ 

write Hite fu 


Cc 


on 
seer 


Ao SY, ame ,'""'/ACCO="", account ,~ 

A, * sbonieed rep Thets suserdic’ Wic=".uic privs,“/PASSW=", password 
close 

as ayereeres h: adduaf.tmp 

delete sys$scratch: adduaf. tmp; */nolog 

on controly then goto good_, message 


i Show newly created account to check for possible errors 


PAHPFARHAFEHR COOH 


e) ok I fase 
— 
oO 


sh 
rite crekoutout a 

write syszoutour "Check newly created account:' 
te ays s$outpu 

openiur te fi ° ee shouaf.t mp, 

rite file ‘SR UN’ SYSSSYSTEM: AUTHORIT ‘ 

cite f file “SHOU *,username,’ 

os 


Poa 


& 
$ 
t 
% 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 


- & ., eae 
elete sys$scratch: 1 SOT tmp; */nolog 


Qa@oae 
wh 


f an error in account then remove account. 
f no error then psa next user name, create next account. 


ure “ok “4 put 


are ok “Is ceoryebiog. potiptastery with the account CYES)" 
k .eqs. then ok = 


ees = 


user .nes. '"' then goto ext_name 


eanup: 

t term /echo 

evpriv = fesetoriy(prevpriv) 
‘ vdefaule *olddir 


o 
-@e VOW emer pS er tr or 


PPP PAPA AAA OF PF OF OF OF &F OF OF OF 09 OF OF 
os ea57% 38 -«-- 


ADDUSER.COM; 1 16-SEP-1984 17:12:38.58 Page 4 


; Remove account, then return and process same account again 


remove_uaf: 

write sys$output '"' “ 

write sys cous Removing newly created account 
u 


open/write file sys$s corepireauel tee 
write file °'S RUN SYS SYSTEM: AUTHORIZE"’ 
write file ‘REMOVE oysernane. 

"SS DELETE ,userd Sk. [0090002 .userdir.".01R;1/L06" 
va SET DEFAULT *‘userdisk 
"'S_RUN SYSSSYSTEM:DISKQUOTA 


EMO uic 
"$ SET DEFAULT SYSSSYSTEM" 


l 
sys$scratch:remuaf.tmp 
el sys$scratch:remuaf.tmp;*/nolog 
on controly then goto good_message 
write SypPeuteut 
full_name ! goto process same account 


$ otis aes cutout wn 


$ write sys$output ‘Program halted by control_y, account successfully created."’ 
$ write sys$output ‘”’ 


@otcace 
ie | 
a 
oe 


PAAPRAAAPAHAPHAHAHAFHHEKHVCONM 
a a 
ie | 
oe 
@ 


$ write sys$Soutput ‘Program halted by control_y, account not created. 


vi 
$ write sys$Soutput ‘You need SETPRV or SYSPRV privilege to run this procedure’ 
$ goto cleanup 


ENT CORPORATION — 


{ BH-BTI3A-SE : PM 
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